home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / dev / misc / BoulderEngine.lha / source / CAVES.C < prev    next >
Encoding:
C/C++ Source or Header  |  1998-03-30  |  8.2 KB  |  165 lines
  1. /* =================================================
  2.    = BOULDER DASH CAVES ©1993 by SAVELSOFT         =
  3.    =  KAUNAS                                       =
  4.    ================================================= */
  5. #include "INCLUDE:exec/types.h"
  6. STATIC UBYTE g[785];
  7. STATIC USHORT SDA[5];
  8. UBYTE maximum()
  9. {return(2); } /* NUMBER OF CAVES */
  10. UBYTE database(i)
  11. USHORT i;
  12. { return(g[i]); }
  13. setlevel(n)
  14. USHORT n;
  15. {
  16.  if(n==0) {level0();}
  17.  if(n==1) {level1();}
  18.  if(n==2) {level2();}
  19. }
  20. USHORT ssda(n)
  21. SHORT n;
  22. { return(SDA[n]);}
  23. level0() /*    30 stupeliu  x 26 eilutes  */
  24. {
  25. SHORT n;
  26. STATIC UBYTE h[]={
  27.       7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,
  28.       7,1,9,1,2,2,8,2,1,1,1,1,1,1,1,8,1,2,1,3,1,1,2,8,2,1,10,1,1,7,
  29.       7,1,3,1,0,3,8,2,3,2,1,1,3,1,1,8,1,3,1,2,1,1,2,8,2,2,0,1,1,7,
  30.       7,2,2,3,3,1,8,1,1,1,0,1,1,3,1,8,3,1,1,1,2,1,1,8,1,1,1,1,3,7,
  31.       7,2,1,1,1,3,8,1,1,1,0,0,1,1,1,8,0,0,5,1,2,1,1,8,1,1,1,1,0,7,
  32.       7,1,1,1,1,0,8,1,0,0,5,1,1,1,1,8,0,1,1,1,1,1,1,8,1,0,0,1,0,7,
  33.       7,0,0,2,1,1,8,1,1,1,1,1,1,2,1,8,1,1,1,1,1,2,1,8,1,1,1,1,2,7,
  34.       7,8,8,8,8,8,8,1,1,1,1,1,1,1,1,8,1,1,0,0,1,1,2,8,3,2,1,1,1,7,
  35.       7,1,0,0,0,0,1,1,1,1,1,1,1,1,1,8,1,2,1,1,1,1,1,8,3,1,1,1,0,7,
  36.       7,1,1,1,1,1,1,1,1,1,1,3,1,1,1,8,1,1,1,1,1,1,1,8,1,1,3,1,0,7,
  37.       7,0,0,0,0,4,0,0,0,0,0,0,1,1,1,8,4,0,2,0,0,0,1,8,1,1,1,0,0,7,
  38.       7,0,1,1,1,3,1,1,1,1,1,1,1,1,1,8,1,0,0,1,3,1,1,8,1,1,4,0,1,7,
  39.       7,0,2,2,2,2,2,2,2,2,2,2,1,2,1,8,2,2,2,2,2,2,2,8,8,1,8,8,8,7,
  40.       7,0,8,8,8,8,8,8,8,8,8,8,8,8,8,8,2,2,2,2,2,2,2,8,1,1,1,1,1,7,
  41.       7,0,0,1,2,2,8,2,1,1,1,1,1,1,1,8,1,2,1,3,1,1,2,8,2,1,0,1,1,7,
  42.       7,0,0,1,0,3,8,2,3,2,1,1,3,1,1,8,1,3,1,2,1,1,2,8,2,2,0,1,1,7,
  43.       7,0,2,3,3,1,8,1,1,1,0,1,1,3,1,8,3,1,1,1,2,1,1,8,1,1,1,1,3,7,
  44.       7,0,1,1,1,3,8,1,1,1,0,0,1,1,1,8,0,0,5,1,2,1,1,8,1,1,1,1,0,7,
  45.       7,0,1,1,1,0,8,1,0,0,5,1,1,1,1,8,0,1,1,1,1,1,1,8,1,0,0,1,0,7,
  46.       7,0,0,2,1,1,8,1,1,1,1,1,1,2,1,8,1,1,1,1,1,2,1,8,1,1,1,1,2,7,
  47.       7,0,8,8,8,8,8,1,1,1,1,1,1,1,1,8,1,1,0,0,1,1,2,8,3,2,1,1,1,7,
  48.       7,0,0,0,0,0,1,1,1,1,1,1,1,1,1,8,1,2,1,1,1,1,1,8,3,1,1,1,0,7,
  49.       7,0,1,1,1,1,1,1,1,1,1,3,1,1,1,8,1,1,1,1,1,1,1,8,1,1,3,1,0,7,
  50.       7,0,0,4,4,4,4,4,4,4,4,4,1,1,1,8,4,0,2,0,0,0,1,8,1,1,1,0,0,7,
  51.       7,1,1,1,1,3,1,1,1,1,1,1,1,1,1,8,1,0,0,1,3,1,1,8,1,1,4,0,1,7,
  52.       7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7};
  53.  
  54. SDA[1]=2000; SDA[2]=30; SDA[3]=40; SDA[4]=10; SDA[5]=15;
  55. for(n=0;n<780;n++){g[n]=h[n];}
  56. }
  57. /* END of LEVEL0 */
  58.  /*     TIM       CRISTAL  HMAGMA      ITEMS    BONUS  */
  59. level1()
  60. {
  61. SHORT n;
  62. STATIC UBYTE h[]={
  63.       7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,
  64.       7,9,1,1,1,1,1,1,1,4,2,2,5,8,1,1,3,0,0,0,5,4,1,1,1,1,1,1,1,7,
  65.       7,1,2,1,1,1,1,1,1,1,1,2,2,8,1,1,1,1,1,2,1,1,1,1,1,1,1,1,1,7,
  66.       7,1,1,1,1,1,1,1,1,1,1,1,1,8,1,1,1,1,1,1,1,1,1,1,0,0,1,1,5,7,
  67.       7,1,2,1,1,1,1,1,1,1,1,1,1,8,1,1,1,1,2,1,1,1,1,1,0,1,1,1,2,7,
  68.       7,1,1,1,1,1,1,1,1,1,1,1,1,8,1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,7,
  69.       7,1,1,1,1,1,1,1,1,2,2,1,1,8,2,1,1,1,1,1,1,2,1,1,1,1,1,2,2,7,
  70.       7,8,8,8,8,8,8,8,8,8,8,8,8,8,2,2,1,1,1,1,1,1,1,1,1,1,1,2,3,7,
  71.       7,1,2,1,1,1,1,1,1,1,1,1,2,8,2,2,1,1,1,1,1,1,1,1,1,1,2,2,3,7,
  72.       7,1,1,1,1,1,1,1,1,1,1,1,3,8,2,2,2,1,1,1,1,1,1,1,1,1,2,3,3,7,
  73.       7,1,1,1,1,1,1,1,1,1,1,1,1,8,2,2,2,2,1,1,1,1,1,1,1,1,1,3,3,7,
  74.       7,1,2,1,1,0,0,0,0,5,1,1,1,8,2,3,2,2,2,2,1,1,1,1,1,1,1,3,3,7,
  75.       7,1,1,1,1,1,1,1,1,1,1,1,1,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,7,
  76.       7,1,2,1,1,1,1,1,1,0,1,1,1,8,2,2,1,1,1,3,3,3,1,1,1,1,1,1,1,7,
  77.       7,1,1,1,1,1,1,2,1,1,1,1,1,8,1,2,2,1,1,1,1,1,1,1,1,1,1,1,10,7,
  78.       7,1,1,1,1,1,1,1,1,1,1,1,1,8,1,2,2,1,2,1,1,1,1,1,1,1,1,1,1,7,
  79.       7,1,1,1,1,1,1,1,1,1,1,1,1,8,1,1,2,1,1,1,1,1,1,1,0,0,1,1,1,7,
  80.       7,1,4,1,1,1,0,1,1,1,1,2,1,8,1,1,1,1,1,1,1,1,5,1,1,1,0,1,1,7,
  81.       7,1,0,1,1,1,1,1,1,1,1,1,1,8,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,7,
  82.       7,1,0,1,1,1,1,1,1,1,1,1,1,8,1,1,1,1,1,1,1,1,2,1,1,1,1,1,1,7,
  83.       7,1,0,1,1,1,1,1,1,1,1,1,1,8,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7,
  84.       7,1,0,1,1,1,1,1,1,1,1,1,1,8,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7,
  85.       7,1,1,1,1,1,1,1,0,1,1,1,1,8,0,1,1,1,1,1,2,1,1,1,1,1,1,1,0,7,
  86.       7,1,1,1,1,1,1,0,0,1,1,1,1,8,1,1,1,1,1,1,2,1,1,1,1,1,4,0,0,7,
  87.       7,1,1,1,1,1,1,1,1,1,1,1,1,8,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7,
  88.       7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7};
  89. SDA[1]=2000; SDA[2]=1; SDA[3]=40; SDA[4]=10; SDA[5]=15;
  90. for(n=0;n<780;n++){g[n]=h[n];}
  91. }
  92. /* END of LEVEL1 */
  93.  /*     TIM       CRISTAL  HMAGMA      ITEMS    BONUS  */
  94. level2()
  95. {
  96. SHORT n;
  97. STATIC UBYTE h[]={
  98.       7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,
  99.       7,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7,
  100.       7,0,8,8,8,8,8,8,8,8,8,1,8,8,8,8,8,8,8,1,1,1,1,1,1,1,1,1,1,7,
  101.       7,0,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8,1,1,1,1,1,1,1,1,1,1,7,
  102.       7,0,8,1,8,8,8,8,8,8,8,1,8,8,8,8,8,0,8,1,2,1,1,1,1,1,2,1,2,7,
  103.       7,0,8,1,8,0,0,0,0,0,0,1,0,0,0,0,8,0,8,1,1,1,1,1,1,1,1,1,1,7,
  104.       7,0,8,1,8,0,8,8,8,8,8,1,8,8,8,0,8,0,8,1,1,1,1,1,1,1,1,1,1,7,
  105.       7,0,8,1,8,4,8,0,0,0,1,0,1,3,8,0,8,0,8,1,1,1,1,1,1,1,1,1,1,7,
  106.       7,0,8,1,8,4,8,0,8,8,8,4,8,3,8,0,8,0,8,1,1,1,2,1,2,1,2,1,1,7,
  107.       7,0,8,1,8,4,8,0,8,0,0,0,8,3,8,0,8,0,8,1,1,1,1,1,1,1,1,1,1,7,
  108.       7,0,8,1,8,4,8,0,8,8,8,1,8,3,8,1,8,0,8,1,1,1,1,1,1,1,1,1,1,7,
  109.       7,0,8,1,8,4,8,0,8,5,0,0,8,3,8,0,8,0,8,1,1,1,1,1,1,1,1,1,1,7,
  110.       7,0,8,8,8,4,8,0,8,8,8,1,8,3,8,0,8,0,8,1,1,2,1,1,1,1,1,1,1,7,
  111.       7,0,8,4,1,4,8,0,0,0,0,0,8,3,8,0,8,0,8,1,1,1,1,1,1,2,1,1,1,7,
  112.       7,0,8,4,8,8,8,5,8,8,8,1,8,3,8,0,8,0,8,1,1,1,1,1,1,1,1,1,1,7,
  113.       7,0,8,4,8,5,5,5,8,1,8,1,8,3,8,0,8,0,8,1,1,1,1,1,1,1,1,1,1,7,
  114.       7,3,8,3,8,5,8,8,8,1,8,1,8,3,8,0,8,0,8,1,1,1,1,1,1,1,1,1,1,7,
  115.       7,3,8,3,8,5,8,9,1,1,4,4,8,3,8,0,0,0,8,2,1,1,1,1,1,1,2,1,1,7,
  116.       7,3,8,3,8,5,8,1,1,8,4,8,8,3,8,3,8,8,8,1,1,1,1,1,1,1,1,1,1,7,
  117.       7,3,8,3,8,0,8,1,1,8,4,4,8,3,3,3,3,3,8,1,1,1,1,1,1,1,1,1,1,7,
  118.       7,3,8,3,8,0,8,1,1,8,4,8,8,8,8,8,8,3,8,1,1,1,1,1,1,1,1,1,1,7,
  119.       7,3,8,3,8,0,8,8,8,8,1,8,1,1,1,1,8,3,8,1,1,1,1,1,1,1,1,1,1,7,
  120.       7,3,8,3,8,0,0,0,0,0,0,0,0,0,1,1,8,3,8,1,1,1,1,1,1,1,1,1,1,7,
  121.       7,3,8,3,8,8,8,8,8,8,8,8,8,8,8,8,8,3,8,2,1,1,1,1,1,1,1,1,1,7,
  122.       7,3,8,3,1,4,1,1,1,1,1,1,1,1,1,1,1,3,8,1,1,1,1,1,1,1,1,1,10,7,
  123.       7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7};
  124. SDA[1]=2000; SDA[2]=30; SDA[3]=40; SDA[4]=10; SDA[5]=15;
  125. for(n=0;n<780;n++){g[n]=h[n];}
  126. }
  127. /* END of LEVEL2 */
  128.  /*     TIM       CRISTAL  HMAGMA      ITEMS    BONUS  */
  129. /*
  130. leveln()
  131. {
  132. SHORT n;
  133. STATIC UBYTE h[]={
  134.       7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,
  135.       7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7,
  136.       7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7,
  137.       7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7,
  138.       7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7,
  139.       7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7,
  140.       7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7,
  141.       7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7,
  142.       7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7,
  143.       7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7,
  144.       7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7,
  145.       7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7,
  146.       7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7,
  147.       7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7,
  148.       7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7,
  149.       7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7,
  150.       7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7,
  151.       7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7,
  152.       7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7,
  153.       7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7,
  154.       7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7,
  155.       7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7,
  156.       7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7,
  157.       7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7,
  158.       7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7,
  159.       7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7};
  160. SDA[1]=2000; SDA[2]=30; SDA[3]=40; SDA[4]=10; SDA[5]=15;
  161. for(n=0;n<780;n++){g[n]=h[n];}
  162. }*/
  163. /* END of LEVELn */
  164.  /*     TIM       CRISTAL  HMAGMA      ITEMS    BONUS  */
  165.